home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 October / 64er_Magazin_90-10_1990_Markt__Technik_de_Side_B.d64 / vier gewinnt (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  21 lines
  1. 1 print"[147]"tab(28)"vier gewinnt":forb=1to7:fora=1to6:print" [213][192][201] ";:next:print
  2. 2 fora=1to6:print" [194] [194] ";:next:print:fora=1to6:print" [202][192][203] ";:next:print:next
  3. 3 c$="        ":a$=" to move ":r$=c$+" red"+a$:w$=c$+"white"+a$:c=2:printr$
  4. 4 poke204,0:print"";:a=0:poke53280,0:poke53281,0:data0,1,-1,-1,-1,0,1,-1
  5. 5 poke198,0:wait198,1:geta$:ifa$=" "thenifa<5thenprint" ";:a=a+1:goto5
  6. 6 x=7:ifa$<>chr$(13)thena=0:poke204,0:print" ";:goto5:(w)by ludger baeumer
  7. 7 q=1026+40*(x*3+1)+(a*5):ifx>1thenifpeek(q)<>32thenx=x-1:goto7:ci&va
  8. 8 ifpeek(q)<>32then5:data2,45,25,2,113,25,2,45,25,2,113,25,2,138,25,2,180,80
  9. 9 d=d+1:pokeq+54272,c:pokeq,160+abs(c=2)*64:gosub13:data0,0,180
  10. 10 ifc=2thenprintw$:c=1:goto4
  11. 11 ifd<42thengoto3
  12. 12 print"[147]nobody wins !!![146][157][157][157]press space !!! ";:poke198,0:wait198,1:run
  13. 13 restore:s=x:t=a:fori=1to4:x=s:a=t:readg,h:y=0:p=0
  14. 14 x=x+g:a=a+h:ifpeek(1026+40*(x*3+1)+(a*5))=160+abs(c=2)*64thenp=p+1:goto14
  15. 15 x=s:a=t
  16. 16 a=a-h:x=x-g:ifpeek(1026+40*(x*3+1)+(a*5))=160+abs(c=2)*64thenp=p+1:goto16
  17. 17 ifp<3thennext:return:lui
  18. 18 poke646,c:print" ";:printtab(12);" wins !!! ":restore:fora=1to8:readx:next
  19. 19 s=54272:pokes+24,15:pokes+13,240:fort=1to7:reada,b,c:pokes+8,b:pokes+7,a
  20. 20 poke204,1:print" ":pokes+11,17:ford=1toc:poke53280,d:next:pokes+11,0:next:run
  21.